home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Context Menu Options 5.xpl < prev    next >
Text File  |  2001-08-28  |  2KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Files&Folders\Folders Context Menu"
  5. "UIPATH 2"="Appearance\Files&Folders\Drives"
  6. "NAME"="Print Contents Context Menu"
  7. "VERSION"="1.02"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable "Print Contents" command for directories"
  10. "TEXT 2"="Enable "Print Contents" command for drive root"
  11. "DESCRIPTION 1"="This option lets you add a "Print Contents" option to the context menus of folders and drive root folders respectively."
  12. "AUTHOR"="Xteq Systems (CptSiskoX)"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Should print DIR list contents of selected folder/drive root."
  16.  
  17.  
  18. sName="Print Contents"
  19.  
  20. sP1_A="HKCR\Directory\Shell\PrintHere"
  21. sP1_B="HKCR\Directory\Shell\PrintHere\Command"
  22.  
  23. sP2_A="HKCR\Drive\Shell\PrintHere"
  24. sP2_B="HKCR\Drive\Shell\PrintHere\Command"
  25.  
  26. Sub Plugin_Initialize 
  27.  s=RegReadValue(sP1_B & "\@")
  28.  if Len(s)>0 then
  29.     SetUIElement 1,true
  30.  end if 
  31.  
  32.  s=RegReadValue(sP2_B & "\@")
  33.  if Len(s)>0 then
  34.     SetUIElement 2,true
  35.  end if 
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  s=BuildCommandString
  40.  
  41.  if GetUIElement(1)=true then
  42.     Call RegWriteValue(sp1_A & "\@",sName,1)
  43.     Call RegWriteValue(sp1_B & "\@",s,1)
  44.  else 'Disable it!
  45.     if RegPathExists(sP1_B) then Call RegDeletePath(sP1_B)
  46.     if RegPathExists(sP1_A) then Call RegDeletePath(sP1_A)
  47.  end if
  48.  
  49.  if GetUIElement(2)=true then
  50.     Call RegWriteValue(sp2_A & "\@",sName,1)
  51.     Call RegWriteValue(sp2_B & "\@",s,1)
  52.  else 'Disable it!
  53.     if RegPathExists(sP2_B) then Call RegDeletePath(sP2_B)
  54.     if RegPathExists(sP2_A) then Call RegDeletePath(sP2_A)
  55.  end if
  56.  
  57.  
  58. End Sub
  59.  
  60. Sub Plugin_Terminate 
  61. End Sub
  62.  
  63. Function BuildCommandString
  64.  csVer=GetWinVer
  65.  if csVer=1 or csVer=3 or csVer=5 then 'Windows 95/98/ME
  66.     csPath=GetWinDir
  67.     csPath=csPath & "command.com /c dir /a ""%1"" > lpt1"
  68.  else 'NT/2K/XP
  69.     csPath=GetWinSysDir
  70.     csPath=csPath & "cmd.exe /c dir /a ""%1"" > lpt1"
  71.  end if    
  72.  
  73.  BuildCommandString=csPath
  74. End Function
  75.